﻿Public Class AppCommand
	Private Shared _goBack As RoutedUICommand
	Private Shared _goNext As RoutedUICommand
	Private Shared _goUp As RoutedUICommand
	Private Shared _focusFilter As RoutedUICommand

	Shared Sub New()
		GoBack = New RoutedUICommand("_Back", "GoBack", GetType(AppCommand), New InputGestureCollection(New KeyGesture() {New KeyGesture(Key.Left, ModifierKeys.Alt, "Alt+Left")}))
		GoNext = New RoutedUICommand("_Next", "GoNext", GetType(AppCommand), New InputGestureCollection(New KeyGesture() {New KeyGesture(Key.Right, ModifierKeys.Alt, "Alt+Right")}))
		GoUp = New RoutedUICommand("_Up", "GoUp", GetType(AppCommand), New InputGestureCollection(New KeyGesture() {New KeyGesture(Key.Up, ModifierKeys.Alt, "Alt+Right")}))
		FocusFilter = New RoutedUICommand("_FocusFilter", "FocusFilter", GetType(AppCommand), New InputGestureCollection(New KeyGesture() {New KeyGesture(Key.Escape, ModifierKeys.None, "Escape")}))
	End Sub
	Public Shared Property GoBack() As RoutedUICommand
		Get
			Return _goBack
		End Get
		Set(ByVal value As RoutedUICommand)
			_goBack = value
		End Set
	End Property
	Public Shared Property GoNext() As RoutedUICommand
		Get
			Return _goNext
		End Get
		Set(ByVal value As RoutedUICommand)
			_goNext = Value
		End Set
	End Property
	Public Shared Property GoUp() As RoutedUICommand
		Get
			Return _goUp
		End Get
		Set(ByVal value As RoutedUICommand)
			_goUp = Value
		End Set
	End Property
	Public Shared Property FocusFilter() As RoutedUICommand
		Get
			Return _focusFilter
		End Get
		Set(ByVal value As RoutedUICommand)
			_focusFilter = value
		End Set
	End Property
End Class